home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / s / ungreekboxes.pprx < prev    next >
Text File  |  1992-03-14  |  886b  |  51 lines
  1. /*
  2. @BUnGreekBoxes @P@ICopyright Gold Disk Inc., January, 1992
  3.  
  4. This genie will ungreek all boxes of a certain type in a document
  5. */
  6. cr = '0a'x
  7.  
  8. address command
  9. call SafeEndEdit.rexx()
  10. first    = ppm_DocFirstPage()
  11. last    = ppm_DocLastPage()
  12.  
  13. call ppm_AutoUpdate(0)
  14.  
  15. types = "PDraw Clips"cr"Text"cr"BitMap"cr"Structured Graphics"cr"EPSF"
  16. types = upper(ppm_SelectFromList("Select boxes to UnGreek", 20, 3, 1, types))
  17. if types = '' then exit_msg()
  18.  
  19. call ppm_ShowStatus("Working..")
  20.  
  21. do page = first to last
  22.  
  23.     box = ppm_PageFirstBox(page)
  24.  
  25.     do while box ~= 0
  26.  
  27.     info = upper(word(ppm_GetBoxInfo(box), 1))
  28.  
  29.     if pos(info, types) ~= 0 then
  30.         call ppm_SetBoxHide(box, 0)
  31.  
  32.     box = ppm_PageNextBox(box)
  33.  
  34.     end
  35.  
  36. end
  37.  
  38. exit_msg()
  39.  
  40. exit_msg: procedure
  41. do
  42.  
  43.     arg message
  44.  
  45.     if message ~= '' then call ppm_Inform(1,message,)
  46.  
  47.     call ppm_ClearStatus()
  48.     call ppm_AutoUpdate(1)
  49.     exit
  50. end